;; import lists/classify.scm

(define l-1 '(a b c))
(define l-2 '(a b c . d))
(define l-3 (list 'a 'b 'c 'd 'e 'f 'g 'h 'i 'j 'k 'l 'm 'n 'o 'p 'q
                  'r 's 't 'u 'v 'w 'x 'y 'z))

(define (list-loop! l t)
  (if (null? (cdr t))
      (set-cdr! t l)
      (list-loop! l (cdr t))))

(list-loop! l-3 l-3)

(print (classify-list l-1))
(print (classify-list l-2))
(print (classify-list l-3))

